home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
tm480.zip
/
TMEXAM.EXE
/
DIRECTOR.TSK
< prev
next >
Wrap
Text File
|
1991-09-10
|
5KB
|
162 lines
; Title : DIRECTOR.TSK Last Updated : June 14, 1991
; Author : Steve Johnson - FmP. Version : 1.00
; Purpose : Reformats output from the DOS DIR command.
hexvar cr,0d
hexvar esc,1b
logical file
logical confirm
var char,1
var cmd,8
var error,80
var null,1
var spec,40,'DIRECTOR'
var directorline,82
var spaces9,9,' '
int i
vconst cls,11
vconst attn,79
vconst att2,71
var fname,8
var sname,3
var size,9
int line
define column,4
end
forms logon.ovr
lookfor director.ovr
if not found
insert SPEC SPEC
put "NO_FORMS" ;logon.ovr open already!
stop
fi
forms director.ovr
move '.' to spec
put wallpaper wait 0 noclear
fieldfill spec
put 'QUESTIONS'
get spec
trim spec
if anyfk
stop
fi
move true to hide
if spec ne null
display attn cls
display 'Please wait...' cr
run 'dir ' spec 1 '>director.dat'
clear error
scanvid 0 giving error
if error ct 'not found' ;DIR doesnt set errorlevel!
displayln 'DIRECTOR: Sorry, no files match your specification - aborting'
stop
fi
display cls
restore ascii 'DIRECTOR.DAT' ;open file for reading
if resp <> 0 ;if response non-zero
displayln 'Edit failed ...' ;get out
stop
fi
while resp = 0 ;until end of input
clear directorline
restore directorline
if resp = 0 and directorline ct '~~-~~-~~' and not directorline ct '<dir>'
move zero to delim
setscan directorline
clear fname char sname size
scan fname char sname size
trim fname sname
if line = 0
cursor line column attn 4 'Bytes Filename' att2
increment line
fi
cursor line column att2 size 1 attn fname '.' sname
increment line
if line = 23
clear line
add 23 to column
fi
if column > 50
userline attn 'Press a key for more, <ESC> to quit'
inkey char
if char = esc
stop
fi
display cls
clear line
move 4 to column
fi
fi
fi
restore ;close input file
erase 'DIRECTOR.DAT' ;erase input file
userline attn 'Listing completed...'
inkey char
fi
stop
endtask
@video
@head left,DIRECTOR.TSK
@head right,"Copyright (c) FmP 1991"
@head centre,'Automation example'
@nf questions
@acceptfk f10
@overlay
@str
@dim
@banner
@win line3,column4,depth10,width72
This task uses the DOS DIR command to return the names and sizes
of files matching the filespec you supply and reformats this
information and displays it in a colourful 3 column table on the
screen.
Please enter a filespec [ ]
Note a full-stop represents the working directory.
@brightW
@win line19,column10,depth3,width60,pattern 176
Press F10 to quit
@end
@map x,b2
@map Y,b1
@map Z,b0
@nf WALLPAPER
@COL CHAR,green,blue
@translate
@gon
XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
XYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXY
YZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZ
ZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZXYZX
@end
@eof